9 clear 
10 A=20180;B=A;C=120
20 X=-43;gosub C
30 X=53;gosub C
40 X=27672;gosub C
50 X=20190;gosub C
60 X=-13871; gosub C
65 A = 20190
70 K = KP
80 if K = 13 goto 100
90 %(A) = K; A = A+1; goto 70
100 %(A)= 0
105 clear 
110 CALL B; goto 65
120 %(A)=X; A=A+2; return 
:return ;run 
